(menu-bar-vc-filter): Use vc-call-backend.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 48f4613287b080819267be1ddf81233cb8cada9c..8bc0bd86a41d6d535b770f644059043c07b3c586 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1170,7 +1170,7 @@ mail status in mode line"))
 
 (defun menu-bar-vc-filter (orig-binding)
   (let ((ext-binding
-   (if vc-mode (vc-call 'extra-menu buffer-file-name))))
+   (if vc-mode (vc-call-backend (vc-backend buffer-file-name) 'extra-menu))))
     ;; Give the VC backend a chance to add menu entries
     ;; specific for that backend.
     (if (null ext-binding)